1 REM TIME-KEEPER 64
2 REM (C) 1987 BOB KODADEK
3 REM
4 F$="OB.TK 64":PRINT"LOADING "F$:IF A=0 THEN A=1:LOAD (F$),8,1
5 PRINT CHR$(147) CHR$(14) CHR$(13) SPC(11)"[212]IME-[203]EEPER 64":PRINT
6 DIM MD(12):FORI=1TO12:READ MD(I):NEXT
7 ML=49700:CL=49712:U$=CHR$(145)+CHR$(145)
8 FORI=0TO3:E$=E$+CHR$(32):NEXT
9 FORI=0TO3:E$=E$+CHR$(157):NEXT
10 PRINT SPC(8)"[211]ET THE DATE (MN/DT/YR)":PRINT
11 PRINT"MONTH  (1-12)"E$;:INPUT MN
12 IF MN<1 OR MN>12 THEN PRINT U$:GOTO11
13 S$=RIGHT$(STR$(MD(MN)),2)+")"
14 PRINT SPC(1)"DATE  (1-"S$ E$;:INPUT DT
15 IF DT<1 OR DT>MD(MN) THEN PRINT U$:GOTO14
16 PRINT SPC(1)"YEAR (86-99)"E$;:INPUT YR
17 IF YR<86 OR YR>99 THEN PRINT U$:GOTO16
18 PRINT:PRINT SPC(8)"[211]ET THE TIME (HR/MS/AM-PM)"
19 GOSUB24:POKE CL,MS:POKE CL+1,HR
20 POKE CL+2,MN:POKE CL+3,DT:POKE CL+4,YR
21 PRINT:PRINT SPC(8)"[211]ET THE [193]LARM? (Y OR N)";:INPUT A$
22 HR=0:MS=0:IF A$="Y" OR A$="[217]" THEN GOSUB 24
23 POKE CL+5,MS:POKE CL+6,HR:SYS ML:END
24 PRINT:PRINT"HOURS  (1-12)"E$;:INPUT HR
25 IF HR<1 OR HR>12 THEN PRINT U$:GOTO24
26 PRINT SPC(1)"MINS  (0-59)"E$;:INPUT MS
27 IF MS >59 THEN PRINT U$:GOTO26
28 PRINT"AM-PM   (A/P)"E$;:INPUT P$
29 IF P$ <>"A" AND P$<>"P"THEN PRINT U$:GOTO28
30 FLAG=0:IF P$="P" THEN FLAG = 128
31 BY=HR:GOSUB33:HR=BY OR FLAG
32 BY=MS:GOSUB33:MS=BY:RETURN
33 X=INT(BY/10):Y=BY-10*X:BY=16*X+Y:RETURN
34 DATA 31,29,30,31,30,30,31,31,30,31,30,31